﻿Imports DTO
Imports DAO

Public Class ChiTietPNSachBUS
    Public Sub Them(ByVal ctpnDTO As ChiTietPNDTO)
        Dim ctpnDAO As New ChiTietPNSachDAO
        ctpnDAO.Them(ctpnDTO)
    End Sub

    Public Function TimKiem(ByVal ctpnDTO As ChiTietPNDTO) As IQueryable(Of ChiTietPN)
        Dim ctpnDAO As New ChiTietPNSachDAO
        Return ctpnDAO.TimKiem(ctpnDTO)
    End Function

    Public Sub CapNhat(ByVal ctpnDTO As ChiTietPNDTO)
        Dim ctpnDAO As New ChiTietPNSachDAO
        ctpnDAO.CapNhat(ctpnDTO)
    End Sub
End Class
